home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / GDATE < prev    next >
Text File  |  1997-04-05  |  220b  |  5 lines
  1. GDATE: procedure;arg da,mo;getuser da;da=result
  2.   da=substr(da,12,4)right(index("anebarprayunulugepctovec",substr(da,9,2))%2+1,2,"0")right(strip(substr(da,5,2)),2,"0")
  3.   if mo="I" then return date("i",da,"s")
  4.  return da
  5.